home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / userinf.scr < prev   
Encoding:
Text File  |  1995-09-13  |  1.2 KB  |  38 lines
  1. /*
  2.  * Octopus, The Atari ST(e)/TT/Falcon GEM/TOS Bulletin Board System
  3.  * written by me (Koos Kuil) on FidoNet: 2:282/397, NeST: 90:500/103
  4.  *
  5.  * Example English OctoScript file written on 03 March 1995
  6.  *
  7.  * ------------------------------------------------------------------
  8.  * USERINF.SCR   Functions for changing user information
  9.  *
  10.  */
  11.  
  12. :changeuser
  13. Do
  14.   Convert ChangeUs
  15.   DoChoice
  16.     EchoKey
  17.       Send '\r\n\n'
  18.     SelectChoice
  19.        Case 1   Send 'Enter first & last name: '     Input &User.Name
  20.        Case 2   Send 'Enter street &  number : '     Input &User.Street
  21.        Case 3   Send 'Enter your Postcode : '        Input &User.Postcode
  22.        Case 4   Send 'Enter your City & state: '     Input &User.City
  23.        Case 5   Send 'Enter your Voice telephone : ' Input &User.VoiceTel
  24.        Case 6   Send 'Enter your Data telephone : '  Input &User.DataTel
  25.  
  26.        Case 7   Send 'Enter the name of your BBS/FAX : '
  27.                    Input &User.BBSFax
  28.        Case 8    Send 'Enter the type of your modem & speed : '
  29.                    Input &User.Modem
  30.        Case 9    Send 'Enter the type of your computer : '
  31.                    Input &User.Computer
  32.        Case A   Input &User.Alias
  33.     EndSelect
  34.   EnddoChoice Q
  35. Enddo Q
  36. Return
  37.  
  38. /* End USERINF.SCR */